Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vidlibp/vidmaint.frm

Text File | 1995-05-01 | 28KB | 932 lines

VERSION 2.00
Begin Form VidMaint
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Video Maintenance"
   ClientHeight    =   4515
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7320
   ForeColor       =   &H00FFFFFF&
   Height          =   4920
   HelpContextID   =   220
   Icon            =   VIDMAINT.FRX:0000
   Left            =   1035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4515
   ScaleWidth      =   7320
   Top             =   1140
   Width           =   7440
   Begin CommandButton cmdSearch
      Caption         =   "S&earch"
      Height          =   465
      HelpContextID   =   230
      Left            =   5940
      TabIndex        =   14
      Top             =   3300
      Width           =   1230
   End
   Begin TextBox txtSynopsis
      BackColor       =   &H00000000&
      DataField       =   "SynText"
      DataSource      =   "dtaVidLib"
      Height          =   540
      Left            =   7380
      MultiLine       =   -1  'True
      TabIndex        =   30
      Text            =   "Text1"
      Top             =   3975
      Visible         =   0   'False
      Width           =   555
   End
   Begin TextBox txtRecCode
      DataField       =   "RecCode"
      DataSource      =   "dtaVidLib"
      Height          =   555
      Left            =   7380
      MaxLength       =   1
      TabIndex        =   29
      TabStop         =   0   'False
      Top             =   2475
      Visible         =   0   'False
      Width           =   555
   End
   Begin TextBox txtCrmCode
      DataField       =   "CrmCode"
      DataSource      =   "dtaVidLib"
      Height          =   555
      Left            =   7380
      MaxLength       =   1
      TabIndex        =   28
      TabStop         =   0   'False
      Top             =   3150
      Visible         =   0   'False
      Width           =   555
   End
   Begin TextBox txtRatCode
      DataField       =   "RatCode"
      DataSource      =   "dtaVidLib"
      Height          =   555
      Left            =   7380
      MaxLength       =   1
      TabIndex        =   27
      TabStop         =   0   'False
      Top             =   1125
      Visible         =   0   'False
      Width           =   555
   End
   Begin TextBox txtGenCode
      DataField       =   "GenCode"
      DataSource      =   "dtaVidLib"
      Height          =   555
      Left            =   7380
      MaxLength       =   1
      TabIndex        =   26
      TabStop         =   0   'False
      Top             =   450
      Visible         =   0   'False
      Width           =   555
   End
   Begin CommandButton cmdSynopsis
      Caption         =   "&Synopsis"
      Height          =   465
      HelpContextID   =   230
      Left            =   5940
      TabIndex        =   13
      Top             =   2775
      Width           =   1230
   End
   Begin SpinButton spnRunTime
      Height          =   315
      HelpContextID   =   225
      Left            =   3285
      TdThickness     =   2
      Top             =   3225
      Width           =   240
   End
   Begin SpinButton spnRlsYear
      Height          =   315
      HelpContextID   =   225
      Left            =   3285
      TdThickness     =   2
      Top             =   2625
      Width           =   240
   End
   Begin TextBox txtRunTime
      BackColor       =   &H0000FFFF&
      DataField       =   "RunTime"
      DataSource      =   "dtaVidLib"
      Height          =   315
      HelpContextID   =   225
      Left            =   1530
      MaxLength       =   4
      TabIndex        =   5
      Top             =   3225
      Width           =   1770
   End
   Begin TextBox txtRlsYear
      BackColor       =   &H0000FFFF&
      DataField       =   "RlsYear"
      DataSource      =   "dtaVidLib"
      Height          =   315
      HelpContextID   =   225
      Left            =   1530
      MaxLength       =   5
      TabIndex        =   4
      Top             =   2625
      Width           =   1770
   End
   Begin Frame fraRecCode
      BackColor       =   &H00C0C0C0&
      Caption         =   "Recording"
      Height          =   1140
      Left            =   3690
      TabIndex        =   22
      Top             =   2400
      Width           =   2085
      Begin OptionButton optRecHome
         BackColor       =   &H00C0C0C0&
         Caption         =   "Home Recording"
         Height          =   315
         HelpContextID   =   225
         Left            =   180
         TabIndex        =   9
         Top             =   675
         Width           =   1770
      End
      Begin OptionButton optRecFactory
         BackColor       =   &H00C0C0C0&
         Caption         =   "Factory Tape"
         Height          =   315
         HelpContextID   =   225
         Left            =   180
         TabIndex        =   8
         Top             =   300
         Value           =   -1  'True
         Width           =   1455
      End
   End
   Begin Frame fraCrmCode
      BackColor       =   &H00C0C0C0&
      Caption         =   "Chromaticity"
      Height          =   1140
      Left            =   3690
      TabIndex        =   21
      Top             =   1125
      Width           =   2085
      Begin OptionButton optCrmBW
         BackColor       =   &H00C0C0C0&
         Caption         =   "Black and White"
         Height          =   315
         HelpContextID   =   225
         Left            =   180
         TabIndex        =   7
         Top             =   675
         Width           =   1680
      End
      Begin OptionButton optCrmColor
         BackColor       =   &H00C0C0C0&
         Caption         =   "Color (or Both)"
         Height          =   315
         HelpContextID   =   225
         Left            =   180
         TabIndex        =   6
         Top             =   300
         Value           =   -1  'True
         Width           =   1590
      End
   End
   Begin ComboBox cboRatText
      BackColor       =   &H0000FFFF&
      Height          =   300
      HelpContextID   =   225
      Left            =   180
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   1950
      Width           =   3345
   End
   Begin ComboBox cboGenText
      BackColor       =   &H0000FFFF&
      Height          =   300
      HelpContextID   =   225
      Left            =   180
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   1350
      Width           =   3345
   End
   Begin CommandButton cmdDelete
      Caption         =   "De&lete"
      Height          =   465
      HelpContextID   =   230
      Left            =   5940
      TabIndex        =   12
      Top             =   2250
      Width           =   1230
   End
   Begin CommandButton cmdUpdate
      Caption         =   "&Update"
      Default         =   -1  'True
      Height          =   465
      HelpContextID   =   230
      Left            =   5940
      TabIndex        =   10
      Top             =   1200
      Width           =   1230
   End
   Begin CommandButton cmdAdd
      Caption         =   "&Add"
      Height          =   465
      HelpContextID   =   230
      Left            =   5940
      TabIndex        =   11
      Top             =   1725
      Width           =   1230
   End
   Begin Data dtaVidLib
      Connect         =   ""
      DatabaseName    =   "C:\VB\VIDLIB\VIDLIB.MDB"
      Exclusive       =   0   'False
      Height          =   315
      Left            =   180
      Options         =   0
      ReadOnly        =   0   'False
      RecordSource    =   "Video"
      Top             =   3975
      Width           =